home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_18_(11-1984).d64
/
super directory
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
69 lines
0 GOTO1000
1 GETZ$:IFZ$=""THEN1
2 RETURN
10 INPUT#15,ER,ER$:IFER=0THENRETURN
20 PRINT"DISK ERROR #"ER:PRINTER$:END:RETURN
100 PRINT"":FORI=0TO15:FORJ=0TONC:PRINTTAB(J*20+1);V$(I+J*16);
110 NEXTJ:PRINT:NEXTI
120 POKEXB,0:RL=0:CL=0:GOSUB600
130 FORI=0TO1STEP0:GOSUB1:Z=ASC(Z$):TC=CL:TR=RL:FORJ=0TO1STEP0
140 IF(ZAND127)=29THENCL=(CL+1+2*(Z=157))ANDNC
150 IF(ZAND127)=17THENRL=(RL+1+2*(Z=145))AND15
160 IFZ=13THENI=1
170 IFV$(RL+CL*16)<>B$THENJ=1
180 NEXT:IF(TC<>CL)OR(TR<>RL)THENGOSUB500
190 NEXT:RETURN
500 POKEXA,TR+3:PRINTTAB(TC*20+1);""+V$(TR+16*TC)
600 POKEXA,RL+3::PRINTTAB(CL*20+1);"[156]";V$(RL+16*CL):RETURN
900 FORI=1TONV:V$(I)=B$:NEXT:RETURN
1000 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB6000
1010 NC=1:IFPEEK(213)=79THENNC=3
1020 NV=(NC+1)*16-1:GOSUB2000:B$=" ":DIMV$(NV)
1100 NP=0:SL=1:V$(0)="NEXT PAGE":PRINT"[147]"HE$
1110 SL=SL+NP:NP=MA-SL+1:IFNP>NVTHENNP=NV
1120 IFNP=0THEN3000
1130 GOSUB900:FORI=1TONP:V$(I)=PR$(SL+I-1):NEXT
1140 GOSUB100:IFCL+RL=0THEN1110
1150 POKE139,128:GOTO5000
2000 GOSUB2900:MA=0
2010 OPEN15,UN,15,"I"+DR$:GOSUB10
2020 OPEN1,UN,3,"$"+DR$
2030 SYS896
2040 FO=ASC(IN$):IF(FOAND3)=1THEN2100
2050 CLOSE1:CLOSE15:PRINT"BAD DISK FORMAT":END
2100 HE$="[153] "+MID$(IN$,143,16)
2110 IFFO>1THENSE=18:HE$=HE$+", 1541/4040 FORMAT ":GOTO2200
2120 IFFO=1THENSE=19:HE$=HE$+", 2040 FORMAT"
2200 DIMPR$(SE*8):FORI=1TOSE:SYS896
2210 FORJ=1TO254STEP32:A=ASC(MID$(IN$,J))AND127
2220 IFA=2THENMA=MA+1:PR$(MA)=MID$(IN$,J+3,16)
2230 NEXTJ
2240 IFSTTHENI=SE
2250 NEXTI
2260 CLOSE1:CLOSE15:RETURN
2900 UN=8:DR=0:DR$="0"
2910 RETURN
2920 PRINT"UNIT # ";UN;:INPUT"[157][157][157][157]";UN
2930 PRINT"DRIVE # ";DR;:INPUT"[157][157][157][157]";DR:IFDR*(DR-1)THEN2930
2940 DR$=STR$(DR):RETURN
3000 GOSUB900:PRINT"[147]NO MORE PROGRAMS ON DISK. OPTIONS ARE:
3020 V$(0)[178]"SEE NEW DISK":V$(2)[178]"RESTART THIS DISK":V$(4)[178]"QUIT"
3030 [141]100:[139]RL[178]0[167][138]
3040 [139]RL[178]2[167]1100
3050 [153]"LOAD":[128]
5000 [151]53280,14:[151]53281,6
5001 [153]"LOADCONTLOAD";[199](34);V$(RL[170]16[172]CL);[199](34);",";UN:[153]"RUN";
5010 [139]XA[178]214[167][151]631,13:[151]632,13:[151]XB,2:[128]
5020 [151]623,13:[151]624,13:[151]158,2:[128]
6000 IN$[178]"ZZ":[129]I[178]1[164]6:IN$[178]IN$[170]IN$:[130]
6010 IN$[178][202](IN$,2):IN$[178]IN$[170]IN$
6020 [139][194](65535)[178]255[167]XA[178]214:XB[178]198:[137]6040
6030 XA[178]216:XB[178]158
6040 [129]I[178]896[164]929:[135]X$:[139][200](X$,1)[179][177]"A"[167]6060
6050 X$[178][196]([197]([201](X$,[195](X$)[171]1))[170]3[172](XA[178]216))
6060 [151]I,[197](X$):[130]
6070 [142]
6080 [131]160,2,177,A45,153,A137,0,200,192,6,208,246,162
6090 [131]1,32,198,255,32,228,255,164,A142,145,A140,200
6100 [131]132,A142,196,A139,208,242,76,204,255